`我弄的ASP留言版为什么验证码不输入也能通过?

来源:百度知道 编辑:UC知道 时间:2024/09/23 20:44:58
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
dim zNum,i,j
dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("verifycode") = zNum
dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 to 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
dim Pos
set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("body.Fix"))
Ados1.write Ados.read(1280)
for i=0 to 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
next
Ados.LoadFromFile(Se

你给的是显示验证码的代码,还要在提交数据后进行一个验证码的判断。。。如果不对,就返回。。。

或者,你可以用AJAX来实现这个功能

就给那么一点代码,我估计有人理你才怪。有没有完整的整站啊,有的话传给我我倒是可以搞一下

楼主不把我的问题设置为答案!看来你是不明白了,我说的那么详细你都不明白,看来你笨的可以了,建议你不要在学习ASP了,没前途我把问题了改了